home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00573_file I-O scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  1.2 KB  |  60 lines
  1. on readTextFile theFile
  2.   set fileObj to FileIO(mnew, "READ", theFile)
  3.   if objectp(fileObj) then
  4.     set theText to fileObj(mReadFile)
  5.     fileObj(mdispose)
  6.     set returnStr to theText
  7.     return returnStr
  8.   else
  9.     return "#Error " & fileObj
  10.   end if
  11. end
  12.  
  13. on appendTextFile theFile, theString
  14.   set fileObj to FileIO(mnew, "APPEND", theFile)
  15.   if objectp(fileObj) then
  16.     fileObj(mWriteString, theString)
  17.     fileObj(mdispose)
  18.   else
  19.     error(fileObj)
  20.   end if
  21. end
  22.  
  23. on readPropTextFile theFile
  24.   global x
  25.   set strList to [:]
  26.   set theText to readTextFile(theFile)
  27.   if word 1 of theText = "#Error" then
  28.     return []
  29.   else
  30.     set x to decrypt(theText)
  31.     set returnStr to x
  32.     do("set strList = " & returnStr)
  33.     return value(string(strList))
  34.   end if
  35. end
  36.  
  37. on getDirectory path
  38.   set dirList to []
  39.   repeat with i = 1 to the maxinteger
  40.     set n to getNthFileNameInFolder(path, i)
  41.     if n = EMPTY then
  42.       exit repeat
  43.     end if
  44.     append(dirList, n)
  45.   end repeat
  46.   return dirList
  47. end
  48.  
  49. on writePropTextFile theFile, theProp
  50.   set fileObj to FileIO(mnew, "WRITE", theFile)
  51.   if objectp(fileObj) then
  52.     set t to string(theProp)
  53.     set x to randEncrypt(t)
  54.     fileObj(mWriteString, x)
  55.     fileObj(mdispose)
  56.   else
  57.     error(fileObj)
  58.   end if
  59. end
  60.